home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / prolog / brklyprl.lha / Emulator / Tests / Passed / test22.pl < prev    next >
Encoding:
Text File  |  1989-04-14  |  207 b   |  17 lines
  1.  
  2. /* Copyright (C) 1988, 1989 Herve' Touati, Aquarius Project, UC Berkeley */
  3.  
  4. main :- 
  5.     write('ok?'),
  6.     nl,
  7.     a([a,b(c,d),[f,g|Z]]),
  8.     b([X],Z),
  9.     write(X),
  10.     nl.
  11.  
  12. a([a,b(c,d),[f,g,X]]) :- b(X).
  13. b(ok).
  14. b(X,X).
  15.  
  16.  
  17.